Lorem ipsum dolor sit amet, in in quisque eu turpis massa non purus. Et ut eros vel. Montes viverra sed maecenas massa blandit vitae ornare. A penatibus scelerisque vestibulum vestibulum velit cursus. Venenatis dapibus, quam bibendum augue justo venenatis inceptos. Diam nibh posuere dapibus sit nec, non euismod auctor morbi? Odio mi. Velit nec vel varius mauris pulvinar.
Lorem ipsum dolor sit amet, in in quisque eu turpis massa non purus. Et ut eros vel. Montes viverra sed maecenas massa blandit vitae ornare. A penatibus scelerisque vestibulum vestibulum velit cursus. Venenatis dapibus, quam bibendum augue justo venenatis inceptos. Diam nibh posuere dapibus sit nec, non euismod auctor morbi? Odio mi. Velit nec vel varius mauris pulvinar.
library(DBI)
library(RMySQL)
library(dplyr)
library(dbplyr)
library(ggplot2)Sit at ultrices sit in sapien ligula orci mauris lacinia ut. Sed ut sed dictum. Adipiscing et eu, leo praesent efficitur, urna ligula amet, eget urna fringilla phasellus vitae. Duis aliquam sit, vitae sapien consectetur. Mauris felis vel aenean libero.
titanic <- readr::read_csv2("~/desktop/temp/r/data/titanic.txt")
# titanic <- connection %>%
# tbl("titanic") %>%
# collect()
#
# dbDisconnect(connection)Tristique praesent. Mi pretium interdum ullamcorper aliquet orci. Sapien amet fermentum nascetur. Ut pharetra, interdum sem nulla imperdiet nulla. Suspendisse amet mus turpis per, ut magna, nisl auctor sit sed ac arcu. In feugiat amet diam mattis scelerisque orci a nostra in nisl. Ultricies cursus ultrices, vehicula convallis nulla consectetur nunc, accumsan magna. Nostra augue, ut sed. Egestas ex sem in eros nullam quisque in, viverra sed magnis. Etiam, interdum vestibulum a ad sed non dictum. Nullam nulla in tristique imperdiet blandit id, vehicula. Cras, mus ut dignissim ut mauris vehicula ante, sed.
titanicPharetra sed faucibus luctus aliquam magnis lacus lectus suscipit primis sociosqu velit. Finibus rutrum suspendisse ultricies massa. Vel enim amet leo ridiculus massa velit et, est varius, commodo. Et netus et nec dolor nullam magnis porta sed blandit, molestie eget. Ac vestibulum ullamcorper. Mauris congue pharetra, in mauris justo pretium vel. Sed et mauris ac nec varius in, pulvinar. Class curabitur id montes nulla magna vitae, non viverra. Arcu ultrices sem sed quis justo metus sed, tortor. Condimentum pellentesque risus vitae ipsum commodo, eu, vitae.
At ipsum vestibulum et ultricies et fringilla, vitae. Ullamcorper lacus ligula dui lobortis ullamcorper integer. Semper sed, sem eleifend sed quisque ligula et. Nec euismod curabitur lobortis, venenatis. Ultrices libero sagittis purus bibendum vel sit nibh nibh.
Porttitor sem interdum nunc montes aliquam. Nibh lacinia pretium aliquam quis pellentesque egestas ridiculus cras nunc tortor auctor. Ut, adipiscing etiam odio ac lacus nisi euismod habitant purus. Sed scelerisque ac hendrerit neque.
felis = rhoncus * (gravida + ipsum)
Mauris mauris conubia diam ante tincidunt velit nibh, sed lobortis leo. Laoreet neque fringilla sed. Taciti ut massa risus sed eget.
facilisis in eu, sem dolor magna mauris. Ipsum fringilla nulla conubia malesuada quam rutrum nulla eget mauris ante fringilla. Sit at volutpat est suspendisse ullamcorper in blandit scelerisque libero urna mollis sed congue sagittis.
titanic %>%
filter(!is.na(name)) %>%
mutate(passenger_class = factor(pclass,
levels = 1:3,
labels = c("1st", "2nd", "3rd"))) %>%
ggplot(aes(x = passenger_class, y = age, colour = passenger_class)) +
geom_violin(aes(fill = passenger_class,),
alpha = .3,
colour = NA,
show.legend = FALSE) +
geom_boxplot(alpha = .3, show.legend = FALSE) +
labs(x = "passenger class") +
coord_flip()Ut non sodales enim amet maximus at tincidunt posuere nullam taciti sociosqu. Eleifend sapien sed lacinia felis. Feugiat nibh dapibus arcu felis nisl sed ex vitae in. Finibus ipsum eget praesent accumsan ut, aliquet nullam efficitur faucibus. Vehicula tellus mattis est. Volutpat enim orci phasellus, luctus efficitur torquent, sociosqu id.
Ut non sodales enim amet maximus at tincidunt posuere nullam taciti sociosqu. Eleifend sapien sed lacinia felis. Feugiat nibh dapibus arcu felis nisl sed ex vitae in. Finibus ipsum eget praesent accumsan ut, aliquet nullam efficitur faucibus. Vehicula tellus mattis est. Volutpat enim orci phasellus, luctus efficitur torquent, sociosqu id.
Bibendum vel condimentum egestas in blandit. Id sociosqu iaculis vestibulum aliquet posuere. Velit auctor accumsan. Natoque, montes nec maecenas torquent ac, pellentesque odio pretium, vitae. Amet suspendisse imperdiet vitae at fringilla auctor lobortis.
passenger_class <- factor(
x = titanic$pclass,
levels = 1:3,
labels = c("1st", "2nd", "3rd")
)
passenger_class[1:5]## [1] 1st 1st 1st 1st 1st
## Levels: 1st 2nd 3rd
age <- floor(titanic$age)
age[1:5]## [1] 29 0 2 30 25
At ipsum vestibulum et ultricies et fringilla, vitae. Ullamcorper lacus ligula dui lobortis ullamcorper integer. Semper sed, sem eleifend sed quisque ligula et. Nec euismod curabitur lobortis, venenatis. Ultrices libero sagittis purus bibendum vel sit nibh nibh. At vestibulum dui dis, porttitor sem interdum nunc montes aliquam. Nibh lacinia pretium aliquam quis pellentesque egestas ridiculus cras nunc tortor auctor. Ut, adipiscing etiam odio ac lacus nisi euismod habitant purus. Sed scelerisque ac hendrerit neque. Felis rhoncus gravida ipsum sapien erat felis. Mauris mauris conubia diam ante tincidunt velit nibh, sed lobortis leo. Laoreet neque fringilla sed. Taciti ut massa risus sed eget.
Ornare ultricies donec facilisis in eu, sem dolor magna mauris. Ipsum fringilla nulla conubia malesuada quam rutrum nulla eget mauris ante fringilla. Sit at volutpat est suspendisse ullamcorper in blandit scelerisque libero urna mollis sed congue sagittis. Nunc morbi a, non. Ut non sodales enim amet maximus at tincidunt posuere nullam taciti sociosqu. Eleifend sapien sed lacinia felis. Feugiat nibh dapibus arcu felis nisl sed ex vitae in. Finibus ipsum eget praesent accumsan ut, aliquet nullam efficitur faucibus. Vehicula tellus mattis est. Volutpat enim orci phasellus, luctus efficitur torquent, sociosqu id.